home *** CD-ROM | disk | FTP | other *** search
/ Wild Blue Yonder 1: 50 Years of Gs & Jets / Wild Blue Yonder - Episode 1 - 50 Years of Gs and Jets (Digital Ranch) (Spectrum Holobyte)(1-107-40-101)(1994).iso / control / panel.dir / 00744_Script_744 < prev    next >
Text File  |  1994-08-29  |  593b  |  22 lines
  1. on adjustVol  
  2.   
  3.   global inChannel, mooVTrack, volumes, sliderMin, sliderScale
  4.   
  5.   set slider    = the clickOn
  6.   set track     = the clickOn - 1
  7.   set soundType = (slider - mooVTrack + 1)/2
  8.   
  9.   if soundType  = 4 then     -- ambience
  10.     sound stop 1
  11.     sound stop 2
  12.   end if
  13.   
  14.   repeat while the mouseDown and (rollOver( track ) or rollOver( slider ))
  15.     set the locV of sprite slider = the mouseV
  16.     updateStage
  17.     set vol = integer(((the locV of sprite slider - sliderMin) * -1) * sliderScale)
  18.     volumes( mPut, soundType, vol )
  19.   end repeat
  20.   
  21. end adjustVol
  22.